Sub Ȯ()

    Dim  As Workbook

    For Each  In Workbooks
        
        If .Name = "A.xlsx" Then
            MsgBox "  ֽϴ."
            Exit For
        End If
        
    Next

End Sub